home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
LOGIC Apps
/
Logic-APPLE_II_APPS.iso
/
pc
/
LOGIC Apple II 5.25" Library - DOS Part 3
/
DOS064.dsk
/
INVESTMENT FOR WITHDRAWALS.bas
< prev
next >
Wrap
BASIC Source File
|
2012-02-16
|
869b
|
26 lines
10 PRINT "MINIMUM INVESTMENT FOR WITHDRAWALS"
20 PRINT
29 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT
30 PRINT "AMOUNT OF WITHDRAWALS";
40 INPUT R
50 PRINT "NUMINAL INTEREST RATE";
60 INPUT I
70 PRINT "NUMBER OF WITHDRAWALS PER YEAR";
80 INPUT N
90 PRINT "NUMBER OF YEARS, MONTHS";
100 INPUT Y0,M
104 REM - CALCULATE YEARS FROM YEARS AND MONTHS
105 Y = (12 *Y0 +M)/12
109 REM - CONVERT FROM PERCENT TO DECIMAL
110 I = I/100
119 REM - CALCULATE MINIMUM INVESTMENT BY FORMULA
120 P = R *N/I *(1 -1/((1 +I/N) ^(N *Y)))
129 REM - ROUND OFF TO NEAREST CENT, PRINT
130 PRINT "MINIMUM INVESTMENT = $"; INT(100 *P +.5)/100
139 REM - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION
140 PRINT
149 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED
150 PRINT "MORE DATA (1=YES,0=NO)";
160 INPUT X
170 IF X = 1 THEN 20
180 PRINT "<CTRL-D>RUNHELLO"